home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Magazin: Amiga-CD 1996 September & October
/
Amiga-CD 1996 #9-10.iso
/
demos
/
arteffect.demo
/
arteffect install-script
< prev
next >
Wrap
Text File
|
1996-07-03
|
3KB
|
101 lines
; $VER: ArtEffect V1.1 Install Version 1.1 (2.7.96)
; Installatiert ArtEffect auf der Festplatte
;
; (c) 1996 HAAGE & PARTNER Computer GmbH
(complete 0)
; Die Versionsnummer und das Erstellungs-Datum der hier installierten
; Versionen.
(set ae-version "1.1")
(set ae-date "(02 Jul 96)")
;====================================================================
; Initialisierungen
(set @default-dest "")
(set os-version (/ (getversion) 65536))
(set os-13 (< os-version 36))
(set os-20 (>= os-version 36))
(set os-21 (>= os-version 38))
(set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
; Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden.
; Die Pfadnamen der einzelnen Quell-Dateien.
(set #libfile (tackon (pathonly @icon) "LIBS/BGUI.library")) ; Hier stehen die Bibliothek
(set #prp-copy-lib
"Kopiere die BGUI-LIBRARY\n")
(set #hlp-copy-lib
"Ohne die BGUI-Library funktioniert nichts!")
;=====================================================================================
; Beginn der Installation
;=====================================================================================
; Eine kleine Einleitung, gefolgt vom Startbild des Installers.
(set act-user-level @user-level)
(user 1)
(message (cat "\nWillkommen bei der Installation der \n\n\"ArtEffect-Demoversion "
ae-version " vom "ae-date "\"!\n\n"
"Dieses Skript kopiert die BGUI-Library für ArtEffect "
"auf Ihre Festplatte und erzeugt einen Assign.\n\n\n"
"© Copyright 1996 HAAGE & PARTNER Computer GmbH"))
(user act-user-level)
(welcome)
(complete 5)
; BGUI.Library in die Libs-Schublade kopieren!
(copylib
(prompt #prp-copy-lib)
(help #hlp-copy-lib)
(source #libfile)
(dest "LIBS:")
(confirm)
)
(complete 95)
; ------- STARTUP ÄNDERN
(set command1 (cat "ASSIGN ARTEFFECT: " (pathonly @icon) ""))
(set command1.txt
(cat
"\n\n\nUm mit ArtEffect richtig arbeiten zu "
"können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
command1
)
)
(startup "ArtEffect"
(prompt command1.txt)
(help #help-startup)
(command command1)
)
(makeassign "ARTEFFECT")
(makeassign "ARTEFFECT" (pathonly @icon))
(complete 100)
; ------- FERTIG
(message (cat
"\nInstallation von ArtEffect beendet.\n\n"
"Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
"User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
"\n\nWir wünschen ihnen viel Spaß mit ArtEffect !")
)